home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / msdos / raytrace / pov / gen / lparser3 / hangpl.ls < prev    next >
Encoding:
Text File  |  1994-02-05  |  506 b   |  22 lines
  1. 10
  2. 20 #90
  3. 20
  4. G
  5. G=^(180){[A]+(90)f-(90)>(90)[A]+(90)f-(90)>(90)[A]+(90)f-(90)>(90)[A]}
  6. A=[C][a]
  7. C={[s+(90)s+(90)s+(90)s<(+35)-(120)s-(120)s][F^(15)+(15)ss+(150)ss]}
  8. a={[d]}{[e]}
  9. d=[f+(90)f+(90)f+(90)f<(+35)-(120)f-(120)f][f^(15)+(15)ff+(150)ff]
  10. #
  11. q=[p][>(90)-(90)g(50).+(90)c(4)?(1)[x]]>(90)-(90)g(100).+(90)[p]
  12. p=sp
  13. s={ij[+Zh]<(90)ij[-Zh]} 
  14. i=Z+(5)i
  15. j=Z-(5)j
  16. k=Z{[+++l.][++ll.][+lll.][llll.][-lll.][--ll.][---l.]}
  17. h=cZZZt(3.2)$[++[++ZZk]ZZk][--[--ZZk]ZZk]ZZk
  18. x=Z(60)!(0.90)x
  19. l=t!g
  20. #
  21. @
  22.